6  Base de datos

6.1 Urolitos

urolitos <- data.frame(
  raza = c("boxer", "labrador", "labrador",
           "bulldog", "chihuahua", "beagle",
           "doberman", "doberman", "schnauzer",
           "mestizo", "mestizo", "mestizo"),
  sexo = c("macho", "macho", "macho",
           "hembra", "hembra", "hembra",
           "macho", "macho", "hembra",
           "macho", "macho", "macho"),
  edad = c("adulto", "adulto", "adulto",
           "adulto", "adulto", "adulto",
           "adulto", "jóven", "jóven",
           "jóven", "geriátrico", "geriátrico")
)

6.2 Destete

set.seed(1234)

destete50 <- data.frame(peso =
                          round(rnorm(10, 9.76, 2.5), 2))

destete100 <- data.frame(peso =
                           round(rnorm(100, 9.76, 2.5), 2))

destete1000 <- data.frame(peso =
                           round(rnorm(1000, 9.76, 2.5), 2))